# test script runner
use PlPN qw(PN);

=pod

To test, select Tools > Record Script and perform some actions. Select Tools > Stop Recording when you are done.

=cut

use strict;
{
	package TestRecorder;
	our @ISA = qw(PlPN::Recorder);
	
	sub RecordScintillaAction {
		my ($self, $message, $wParam, $lParam) = @_;
		PlPN->alert("$self->RecordScintillaAction($message, $wParam, $lParam)");
	}
	
	sub RecordSearchAction {
		my ($self, $type, $options, $result) = @_;
		PlPN->alert("$self->RecordSearchAction($type, $options, $result)");
	}
	
	sub StartRecording {
		my ($self) = @_;
		PlPN->alert("$self->StartRecording()");
	}
	
	sub StopRecording {
		my ($self) = @_;
		PlPN->alert("$self->StopRecording()");
	}
}

my $recorder = new TestRecorder;

PN->AddRecorder($recorder);
